package QAInfo::Schema::InfoDB;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

__PACKAGE__->load_classes;


# Created by DBIx::Class::Schema::Loader v0.04004 @ 2008-07-16 00:40:36
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:4M2R+8pnX7LaxmIHs6aK1A


sub get_languages_list {
    my $self = shift;
    my @langs; # Contains languages list

    foreach my $l ($self->resultset('Languages')->search(undef, {columns => ['name']})) {
        push @langs, $l->name;
    }
    return @langs;
}
1;
